code2html:code2html.cgi

code2html.cgi source

Generated by code2html

#!/usr/local/bin/perl
$REFERER = $ENV{"HTTP_REFERER"};
$NAME = $ARGV[0];
@PATH = split(/\//,$NAME);
$NAME = $PATH[$#PATH];

print "Content-Type: text/html\n\n";

print "<HTML>\n";
print "<TITLE> code2html:$NAME </TITLE>\n";
print "<h2> $NAME source </h2>\n";
print "<h3> Generated by code2html </h3>\n";
print "<PRE>\n";
while (<>) {
	s/</</g;
	s/>/>/g;
	print;}
print "</PRE>\n";
print "<A href=\"$REFERER\"> ";
print "<IMG SRC=\"up_arrow.gif\"> ";
print "Return to Previous </A>\n";
print "</HTML>\n";

Return to Previous